function[result]= preedict(prediction_dates,net,learning_data)
%Plik z datami nazywa sie predicton[data]
n=100
L=length(learning_data);
L2=length(prediction_dates)
%wektor przewidywan nazwijmy prediction
c=learning_data(L-n+1:L,2);
prediction=sim(net,c);
c=[c(2:length(c));prediction(1)];
 for i=2:1:L2
     prediction=[prediction;sim(net,c)];
     c=[c(2:length(c));prediction(i)];
 end
 
 result=[prediction_dates,prediction];
